home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
LOGIC Apps
/
Logic-APPLE_II_APPS.iso
/
mac
/
LOGIC Apple II 5.25" Library - ProDOS
/
PRO003.dsk
/
DEMOS
/
TYPE.DEMO.bas
< prev
Wrap
BASIC Source File
|
2012-02-16
|
207b
|
10 lines
10 D$ = CHR$(4)
20 ONERR GOTO 100
25 PRINT D$"-/PRODOS.03/TYPE.CMD"
27 I = -1
30 HOME
35 I = I +1
40 PRINT D$;"TYPE /PRODOS.03/TEXT/P";I
50 PRINT : PRINT : GET A$
60 IF A$ < >"Q" THEN 30
100 END